source("http://www.statpower.net/R2101/Rotate2DDemo.R")

demo(F1,title1)

demo(F2,title2)